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For some time now we have been selling our S-C Word Processor, 
complete with all source code on disk. We hoped that some 
users would send us their improvements, and sure enough they 
have. Bob Gardner recently sent us a bunch, and that motivated 
me to go back over the package. 


The disk now includes both II/IIPlus and //e versions. The //e 
version allows an 80-column preview (still only 40-column 
during edit mode). I added titles and page numbers, a single 
sheet mode, and more. Even with all the new features, the new 
object code is a little shorter than the old, leaving even more 
room for your own modifications and enhancements. I improved 
the internal documentation. The “manual-ette" is now 10 pages 
rather than 6. A small tutorial file helps you get started. 


The price is still only $50. Owners of the old version can get 
a new copy for only §5. 


Fast Garbage Collection.......ceeeeeeeeCOl. Paul Shetler, MD 
Honolulu, Hawaii 


When Applesoft programs manipulate strings, memory gradually 
fills up with little bits and pieces of old strings. 

Eventually this space needs to be recovered so the program can 
continue. The process of searching through all the still 
active strings, moving them back to the top of free memory, and 
making the remaining space available again is called “garbage 
collection". 


Applesoft will automatically collect garbage when memory fills 
up. However, the garbage collector in the Applesoft ROMs is 
pitifully slow. Worse yet, the time to collect is proportional 
to the square of the number of strings in use. That is, if you 
have 100 active strings it will take four times as long to 
collect garbage as if you had only 50 active strings. 


Cornelis Bongers, of Erasmus University in Rotterdam, 
Netherlands, published a brilliant Garbage Collector for 
Applesoft strings in Micro, August 1982. The speed of his 
program, when compared to the one residing in ROM, is 
incredible. And the time is directly proportional to the 
number of strings, rather than the square of the number of 
strings. The only problem with his program is that it belongs 
to the magazine that published it. Or worse yet, it is tied to 
a program called Ampersoft, marketed by Microsparc (publishers 
of Nibble magazine) for $50. When I asked them about a 
license, they wanted big bucks. 


So, I decided to write my own garbage collector, based on the 
ideas behind Cornelis Bongers' program. And then I further 
decided to make it available to all readers of Apple Assembly 
Line, where I myself have received so much help. 


There are several catches. Normal Applesoft programs save all 
string data with the high-order bit of each byte zero (positive 
ASCII). Further, normal Applesoft programs never allow more 
than one string variable to point to the same exact memory copy 
of the string. The method of garbage collection my program 
uses (Bongers' method) DEPENDS on these constraints. If either 
is not true, LOOK OUT! Of course, if your Applesoft programs 
are normal, you need have no fear. Only if you are doing 
exotic things with your own machine language appendages to 
Applesoft might these constraints be violated. 


The basic concept is fairly simple. Applesoft uses descriptors 
to point to the string in the string pool. The descriptor 
consists of three bytes -- the length, and the address of the 
characters in the string pool. 


Strings build down from the top of memory (HIMEM) and the 
descriptors build up from the end of the program in the 
variable space. Since a new value assigned to a string is 
added to the bottom of the string pool, the pool is soon full 
of "garbage". 


Applesoft frees the garbage one string at a time. This 
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S-C Macro Assembler Version l.O..ccccccccccvcvccccvcecccseseccssesse 900.00 
S-C Macro Assembler Version 1.1 Update... .ccccccccccccccccsccsssee olde 00 
Full Screen Editor for S-C Macro ASsSembDler..cccccccccvccvccccccevcee 949.00 
Includes complete source code. 
S=C Cross RELGrence Utility iwicinw ee eiienee 40 oes eee ewe one w enw es 920.00 
S-C Cross Reference Utility with Complete Source Code........ee0e+-$50.00 
DISASM Dis~Assembler (RAK “War ©) oss ces che eS WSs eee aS wee bese new ee 830400 
Quick-Trace (Anthro-Digital) .....csccccccccccccveeee (LEGe $50.00) $45.00 
The Visible Computer: 6502 (Software Masters).......(reg. $50.00) $45.00 


S-C Word Processor (the one we USE!) .cccccccccccvcccsvcscesssccsce es 990.00 
With fully commented source code. 

Applesoft Source Code on DiS save badass ip wee eo a ee Ae wae Se ee Hew eee S005 00 
Very heavily commented. Requires Applesoft and S-C Assembler. 

ES-CAPE : Extended S-C Applesoft Program EQICOL isii.v trues casi wwawes 200600 


AAL Quarterly DIG S56 60soeu et ewe eh eee dae awe ewer wae seas weach $15.00 
Each disk contains all the source code from three issues of "Apple 
Assembly Line", to save you lots of typing and testing time. 


QD#1: Oct-Dec 1980 QD#2: Jan-Mar 1981 QD#3: Apr-Jun 1981 
QD#4: Jul-Sep 1981 QD#5: Oct-Dec 198] QD#6: Jan-Mar 1982 
QD#7: Apr-Jun 1982 QD#8: Jul-Sep 1982 QD#9: Oct-Dec 1982 
QD#10: Jan-Mar 1983 QD#11: Apr-Jun 1983 QD#12: Jul-Sep 1983 
QD#13: Oct-Dec 1983 QD#14: Jan-Mar 1984 


Double Precision Floating Point for AppleSOft....ccccccccccescccee e $50.00 
Provides 21-digit precision for Applesoft programs. 
Includes sample Applesoft subroutines for standard math functions. 


Amper-Magic (Anthro-Digital) ....ccccccccsccccsecceee (LEGe $75.00) $67.50 
Amper-Magic Volume 2 (Anthro-Digital).....cccecosesee (reg. $35.00) $30.00 
Routine Machine (Southwestern Data Systems).........(reg. $64.95) $60.00 


FLASH! Integer BASIC Compiler (Laumer Research) ....ccccceseccccccese sl 900 


Fontrix (Data TIANSLEOLING ) 6.6 iensoe- e606 She 6S eke O aw ew ow ee wee ees 


$75.00 


Aztec C Compiler System (Manx Software).....ceeeeee (LEGe $199.00) $180.00 
TACcalc Spreadsheet Program.....cccccccsccccssccesee (LEG. $84.95) $75.00 
The one we use every day. It's better than Visicalc! 


Blank DisketteS.. .ccccccsccccccccccccesvcescceesess package Of 20 for $45.00 
(Premium quality, single-sided, double density, with hub rings) 

Vinyl disk pages, 6"°x8.5", hold one disk each...ceccecsceceeeel0 for $6.00 
Diskette Mailing ProtectoOrS...ccccccrccevcccccceceeelL0-99: 40 cents each 

100 or more: 25 cents each 

Cardboard folders designed to fit into 6°X9" Envelopes. 

Envelopes for Diskette MalilerS..ccccrcccccccccscccccccceese 9 Cents each 
ZIF Game Socket: EXt@nGer os ins casweeacese eevee eevee stectseeeeae ews een 20.00 


Buffered Grappler+ Interface and 16K Buffer.......eeeee ($239.00) $200.00 
quikLoader EPROM Cal iweb i des 6046450 4hke ew eee wee wr COLT. 50) $170.00 
Books, BooksS, BOOKS....ccocccccecccvccsceeese Compare Our discount prices! 
"The Apple J[{ Circuit Description", Gayler.......e+ee($22.95) $21.00 
“Understanding the Apple II", Sather... ..cccccccscccee (922.95) $21.00 
"Enhancing Your Apple II, vol. 1“, Lancaster.........($17.95) $17.00 
“Incredible Secret Money Machine", Lancaster.....eeeee ($7.95) $7.50 
“Beneath Apple DOS", Worth & LeChner....cecsercceseee (919.95) $18.00 
"Bag of Tricks", Worth & Lechner, with diskette......($39.95) $36.00 
“Assembly Lines: The Book", Roger Wagner.....-.eseeee ($19.95) $18.00 
“What's Where in the Apple", Second Edition.......... ($24.95) $23.00 
“What's Where Guide” (updates first edition).......... ($9.95) $9.00 
"6502 Assembly Language Programming", Leventhal......($18.95) $18.00 
"6502 Subroutines", Leventhal.....cccccccccccccecscee(Sli.95) $17.00 

Add $1.50 per book for US shipping. Foreign orders add postage needed. 


*** S-C SOPTWARE, P. O. BOX 280300, Dallas, TX 75228 *** 
balla (214) 324-2050 eek 
*** We accept Master Card, VISA and American Express *** 
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n-square method takes forever, when there are large string 
arrays. Bongers introduced the idea of marking active strings 
in the pool by setting the third byte in the string to a 
negative ASCII value, then storing the location of the 
descriptor in the first two bytes. The first two bytes of the 
string are saved safely in the address of field of the 
Gescriptor. The address previously in the address field will 
be changed anyway after all the strings are moved up in memory. 


Another pass through the string pool moves all active strings 
as high in memory as they can go, retrieves the first two 
characters from storage in the descriptor, and points it to the 
new string location. 


Since three bytes are used in the active strings, one and two 
character strings require different treatment. On the first 
pass through the variable space, the characters pointed to by 
the 'short' descriptors are stored in the length and, if len=2, 
the low address byte of the descriptor. The short descriptor 
is flagged with one or more "FF"'s, since no string can have an 
address greater than S$FFOO. 


If short strings are found on the first pass, a third pass 
returns them to the string pool and points the descriptors to 
their new location. 


Short strings do slow collection a little, however, the number 
of passes is proportional to the number of strings, and not the 
number squared. 


Bongers' program was driven by calls via the &-statement. Mine 
differs in that it invoked with the USR function. Although it 
is easily converted to an ampersand routine, I wrote it using 
the USR function to provide fast garbage collection with 
Hayden's compiler (which also uses string descriptors and a 
string pool). The compiler allows USR functions, but makes & 
difficult. Another reason is to investigate some uses for USR. 


USR(#) converts '#' to a floating point value in the FAC 
(floating point accumulator) and then jumps via $0A to the 
address pointed to in $0OB, $0C. The results of the machine 
language subroutine can be returned in the FAC. The USR 
function, floating point calls, and addresses are described in 
Apple's BASIC REFERENCE MANUAL FOR APPLESOFT (Product 
#A2L0006). 


The USR argument for my garbage collector requires a number in 
the range of +32767 to -32767. If the number is negative, the 
string pool is checked for negative ASCII. If any such 
characters are found, USR(-1) will return a value of 0, and no 
garbage collection will be attempted. If no negative ASCII 
characters are found, garbage collection will proceed. In this 
case USR(-1) returns the number of bytes of free space after 
collection. 


If the USR argument is zero, for example K = USR(0), then 


collection is forced and USR will return the amount of free 
space. This is slightly faster than calling with USR(-l), 
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because the preliminary scan for negative ASCII bytes is 
skipped. But USR(-1) is safer, if you are not sure. 


If you use a positive argument N in the USR function, then no 
garbage collection will be performed unless there is less than 
256*N bytes of free space left. Whether or not collection is 
performed, USR will tell you how much free space is left. 


Only the lower five bits of the USR argument are tested. This 
means that USR(32) is the same as USR(0), USR(33) is the same 
as USR(1), and so on. 


I have shown the program as residing at $9400, but of course 
you may re-assemble it for any favorite place. 


The following Applesoft program makes a lot of garbage, and 
sees to the collection of it using my garbage collector. If 
the call to the USR function in line 245 left out, the program 
dies for 47 seconds while Applesoft does its own garbage 
collection. With the USR call as shown, the delay is less than 
one second. 


REM $9400 
4)*"BLOAD B.FAST GARBAGE COLLECTOR" 


( 
KE 11,0; POKE 12,148 
CROC ae 


00 HIMEM: 37888: 
10 PRINT CHR$ 

20 POKE 10,76: 
OO N = 25; biM A 


210 FORI = 1 , S 

220 ag(T,J) = nK* :B9(1,J) = "Y": NEXT ; NEXT 

2h0 F = ( PEEK (112) ® 256 + PEEK (111)) - ( PEEK (110) ® 256 + PEEK (1 
09)): PRINT F" ®: 

245 L = USR (2) 


250 FOR J =1TON 
260 FOR K = 1 TO 10:A$(I,J) = A$(I,J) + "®": NEXT 


NEXT 
280 PRINT : NEXT 


ra gSAVE S.FAST GARBAGE COLLECTOR 
ie ® FAST GARBAGE COLLECTOR 

Of BY COL. PAUL SHETLER, MD 

24 INSPIRED BY CORNELIS BONGERS 


CALL FROM APPLESOFT WITH K=USR(N) 
IF N=0, THEN COLLECTION FORCED 


IF N<O, THEN POOL CHECKED FOR NEG ASCII. 
IF NO NEG ASCII, THEN GC FORCED 
IF NEG ASCII FOUND, THEN 
SET USER(#)=0 AND QUIT. 


IF N>O, THEN COLLECTION PERFORMED ONLY IF 
LESS THAN N®256 BYTES OF FREE 
SPACE LEFT. 
THE APPLESOFT PROGRAM MUST INLCUDE 
THE FOLLOWING STATEMENTS TO SET UP 
THIS GARBAGE COLLECTOR: 


100 HIMEM : 37888: REM$9400 
110 PRINT CHR$(4)"BLOAD B.FAST GARBAGE COLL 


ECTOR 
120 POKE 10,76 : POKE 11,0 : POKE 12,148 


OO Co I ww 0 Oo-~] 


No Na 
olelelelelelelolvel@lojelolel“lelelololelel@lelol-lelolol=) 


IND aed ed ced ee th eed oh od et ot CO OO 
Sees saes ese aeae eee ve seg e een ss @ 


coe eh ed ed ed ed cd lh wae th ed eh ed ch dh ee ed et ek ed ad wt od on“ tks oS od oo ad 


MMM NP NMPofo PY 


OIA Fw 
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WOO owo 
Srrcerl 


1290 #-~~-----~--------------~-~-~~---- 
38 # EQUATES FOR GARBAGE COLLECTION 
1320 SHORT.FLAG -EQ $06 
1330 STRING. LENGTH -EQ $07 
1340 INDEX -EQ $19 
1350 OFFSET -EQ $1B 
1360 ARRAY . END -EQ $1D 
Ft * USER(#) EQUATES 
1400 FACMO -EQ $A0 
1410 FACLO ~EQ $A1 
1420 AYINT -EQ $E10C 
1430 GIVAYF -EQ $E2F2 
1450 & STANDARD EQUATES 
1470 LOWTR -EQ $9B 
1440 FORPNT -EQ $08 
1490 STREND ~EQ $6D 
1500 VARTAB -EQ $69 
1510 FRESPC -EQ $71 
1520 FRETOP -EQ $6F 
1530 MEMSIZE -EQ $73 
1540 ARYTAB -EQ $68 
1560 -OR $9400 
1570 -TF B.FAST GARBAGE COLLECTOR 
1990 USR.GARBAGE COLLECTOR 
20 0C £1 1600 JSR AYINT | CONVERT USR ARGUMENT TO INTEGER 
1610 ® WITH HIBYTE IN FACMO, LO IN FACLO 
AS AQ 1620 LDA FACMO IS # MINUS? 
30 1A 1630 BMI .3 ..NEED TO CHECK FOR NEG ASCII 
A5 a1 —s- 160 LDA FACLO 
29 1F 1650 AND #$1F 8136 BYTES 
FQ 1F 1660 BEQ . ».2IF =0 THEN FORCED COLLECTION 
65 6E 1680 ADC STREND+1 
cS} 70 1690 CMP FRETOP+1 
BO 18 1700 BCS .4 ».NEED TO COLLECT NOW 
1710 ®---CALC FREE SPACE-------------- 
38 1720 . SEC 
a5 6F = 1730 LDA FRETOP 
E5 6D 1740 SBC STREND 
A 1750 TAY LO BYTE 
A> JO 1760 LDA FRETOP+1 
E> OE = 1770 SBC STREND+1 
1780 #---FLOAT (AY) FOR USR_ RESULT---- 
NC F2 E2 1790 52 JMP GIVAYF FLOAT (AY) AND RETURN 
1800 ®---CHECK POOL FOR NEG ASCII----- 
20 34 95 1810 .3 JSR SET.STRING. POOL.STROLL 
20 3D 95 1820 JSR FIND. NEXT.NEG.BYTE. IN. POOL 
Ag 00 "1830 LDA #0 PREPARE ZERO IN CASE NEG ASCII 
BO F2 = 1850 BCS .2 .. FOUND SOME NEG ASCII 
1860 *---COLLECT GARBAGE NOW-—=————=- 
20 Wc 94 1870 4 JSR MARK. ALL. ACTIVE. STRINGS 
20 9D 94 1880 JSR RAISE. ALL. ACTIVE. STRINGS 
1890 ®---FINAL CLEAN UP--------------- 
5 9B 1900 LDA LOWTR STORE NEW BOTTOM OF STRING POOL 
571 1910 A FRESPC 
A5 9C =: 11920 LDA LOWTR+1 
85 72 1930 STA FRESPC+1 
A5 06 1980 LDA SHORT.FLAG § NEED TO FIX SHORT STRINGS? 
FO 03-1950 BEQ .5 ..»NO, NOT ANY SHORT ONES 
20 F2 94 1960 JSR FIX.SHORT. STRINGS 
Ad 71 1970 «5 LDA FRESPC SET FRETOP TO TOP OF FREE SPACE 
85 OF 1980 FRETOP 
A5 72 1990 LDA FRESPC+1 
85 70 2000 STA FRETOP+1 
NC 14 9h 2010 JMP .1 
2030 # MARK ACTIVE STRINGS WITH NEG BYTE 
2050 MARK. ALL. ACTIVE. STRINGS 
A9 00 2060 LDA #0 FLAG->NONE 
85 06 | 2070 STA SHORT.FLAG 
20 65 95 2080 JSR INITIATE.SEARCH 
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Apple Peripherals Are All We Make 
That's Why We're So Good At It! 


THE NEW TIMEMASTER II 


Super Music Synthesizer 
Improved Hardware and Software 


NEW 1984 
DESIGN 

An official 
PRO-DOS Clock 


Automatically date 
stamps files with 
PRO-DOS 


@ just plug it in and your programs can read the year, month, date, day, 
and time to 1 millisecond! The only clock with both year and ms. 

@ NiCad battery keeps the TIMEMASTER II running for over ten years. 

@ Fullemulation of ALL other clocks. Yes, we emulate Brand A, Brand T, 
Brand P, Brand C, Brand S$ and Brand M too. It’s easy for the 
TIMEMASTER to emulate other clocks, we just drop off features. 
That's why we can emulate others, but others CAN’T emulate us. 

@ The TIMEMASTER II will automatically emulate the correct clock card 
for the software you're using. You can also give the TIMEMASTER lla 
simple command to tell it which clock to emulate (but you'll like the 
Timemaster mode better). This is great for writing programs for those 
poor unfortunates that bought some other clock card. 

@ Basic, Machine Code, CP/M and Pascal software on 2 disks! 


@ Complete 16 voice music synthesizer on one card. Just plug it into 
your Apple, connect the audio cable (supplied) to your stereo, boot 
the disk supplied and you are ready to input and play songs. 

@ It's easy to program music with our compose software. You will start 
right away at inputting your favorite songs. The Hi-Res screen shows 
what you have entered in standard sheet music format. 

@ Now with new improved software for the easiest and the fastest 
music input system available anywhere. 

@ We give you lots of software. In addition to Compose and Play 
programs, 2 disks are filled with over 30 songs ready to play. 


@ Eight software controlled interrupts so you can execute two programs @ Easy to program in Basic to generate complex sound effects. Now 

at the same time (many examples are included). your games can have explosions, phaser zaps, train whistles, death 
@ On-board timer lets you time any interval up to 48 days long down to cries. You name it, this card can do it. 

the nearest millisecond. @ Four white noise generators which are great for sound effects. 
The TIMEMASTER II includes 2 disks with some really fantastic time oriented @ Plays music in true stereo as well as true discrete quadraphonic. 
programs (over 40) including appointment book so you'll never forget to do anything @ Full control of attack, volume, decay, sustain and release. 
a ea aa yea iS a a hee in apts then eh alle haan @ Will play songs written for ALF synthesizer (ALF software will not take 

jatersoit wiliautomaticallya the date when aisk files are created or modilied. e ’ . 
disk is over a $200.00 vale alone—we give the software others sell. All software advantage of all our card’s features. Their software sounds the same 
packages for business, data base management and communications are made to OUF synthesizer.) 
read the TIMEMASTER II. If you want the most powerful and the easiest to use clock @ Our card will play notes from 30HZ to beyond human hearing. 
for your Apple, you want a TIMEMASTER II. @ Automatic shutoff on power-up or if reset is pushed. 
PRICE $129.00 @ Many many more features. PRICE $159.00 


Viewmaster 80 


There used to be about a dozen 80 column cards for the Apple, now 
there’s only ONE. 


Z-80 PLUS! 


@ TOTALLY Videx Compatible. 
@ 80 characters by 24 lines, with a sharp 7x9 dot matrix. 
@ On-board 40/80 soft video switch with manual 40 column override 
@ Fully compatible with ALL Apple languages and software—there are 
NO exceptions. 
@ Low power consumption through the use of CMOS devices. 
@ All connections are made with standard video connectors. 
; ; @ Both upper and lower case characters are standard. 
. Toon Mee eek oy arene ae e Sy tee mah (using e We a aaa based C.R.T. controller) 
@ Fully compatible with microsoft disks (no pre-boot required). e The VIEWMASTER incorporates all the features of all other 80 column 
@ Specifically designed for high speed operation in the Apple Ile (runs cards, plus many new improvements 
just as fast in the Il and Franklin). ; 
@ Runs WORD STAR, dBASE 11, COBOL-80, FORTRAN-80, me iiiion SGiedat SORELY Sit MEN AGU” SARIN cts 
PEACHTREE and ALL other CP/M software with no pre-boot. VIEWMASTER = 179 YES VES YES = YES-—sYES)—s YES —sVES VES 
@ A semi-custom 1.C. and a low parts count allows the Z-80 Plus to fly aa ee a e a ae bs - ae en 
a ) : : 
Lepr ta at avery low power level. (We use the Z-80A at ie AGE ce Ses NO ae ce ee a co 
@® Does EVERYTHING the other Z-80 boards do, plus Z-80 interrupts. pie aie a Ne a - Re G - 
SMARTER MORE VES YES NO NO NO VES YES NO 
Don’t confuse the Z-80 Plus with crude copies of the microsoft card. The SOTOTERAN. “MORE Nye SO YES KO VES VES SO YES 


Z-80 Plus employs amuch more sophisticated and reliable design. With 
the Z-80 Plus you can access the largest body of software in existence. 
Two computers in one and the advantages of both, all at an unbelievably 


low price. PRICE $139.00 


The VIEWMASTER 80 works with all 80 column applications including CP/M, 
Pascal, WordStar, Format II, Easywriter, Apple Writer I, VisiCalc, and all 
others. The VIEWMASTER 80 is THE MOST compatible 80 column card you 


can buy at ANY price! PRICE $1 79.00 


@ Expands your Apple Ile to 192K memory. MemoryMaster Ile 128K RAM Card 
@ Provides an 80 column text display. @ Precision software disk emulation for Basic, Pascal and CP/M is 
@ Compatible with all Apple tle 80 column and extended 80 column available at a very low cost. NOT copy protected. 
card software (same physical nig Or35 Apple's 64K card). @ Documentation included, we show you how to use all 192K. 
@ Can be used as a solid state disk drive to make yout pean run uP MU you already have Apple's 64K card. justorderthe MEMORYMASTER He with 64K and use 
to 20 times FASTER (the 64K configuration will act as half a drive). the 64K from your old board to give you a full 128K. (The board is fully socketed so you 
@ Permits your Ile to use the new double high resolution graphics. simply plug in more chips.) 
@ Automatically expands Visicalc to 95 K storage in 80 columns! The MemoryMaster Ile with 128K $249 
64K config. is all that’s needed, 128K can take you even higher. Upgradeable MemoryMaster lle with 64K $169 
@ PRO-DOS willuse the MemoryMaster lle as a high speed disk drive. Non-Upgradeable MemoryMaster Ile with 64K $149 


Our boards are far supenorto most ot the consumerelectronies made tadav ALC ‘sare in high quality sockets with mike spec Components used throughout P.C. boards are Blass- 
epoxy with gold contacts. Made in Amenca to be the bestin the world All products work in the APPLE (TE TL IL and Franklin. The MemoryMaster tle is He only. Applied Engineering 
also manufactures a fullline of data acquisition and contra! products toethe Appie A/D converters and digital WO cards, etc Please call for more information. Allour products are fully 
tested with complete documentation end avadab-e torimmediate delivers Ail products are guaranteed with a ao hassle THREE YEAR WARRANTY. 
Send Check or Money Order to: Call (214) 492-2027 
Texas Residents Add 5% Sales Tax APPLIED ENGINEERING 8 a.m. to 11 p.m. 7 days a week 
Add $10.00 If Outside U.S.A. P.O. Box 798 MasterCard, Visa & C.0.D. Welcome 


Dealer Inquiries Welcome Carrollton, TX 75006 No extra charge for credit cards 
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9453- 20 72 95 2090 .1 JSR FIND. NEXT. STRING. VARIABLE 
42 - BO 44 ~~ 2100 BCS . -~eNO MORE VARIABLES 
458- AO 00 3= 2110 LDY #0 POINT AT LENGTH BYTE OF DESC. 
O45A- B1 9B 2120 LDA (LOWTR),Y 
945C- FO F5 2130 BEO .1 STRING LEN =0 
2140 #---CHECK LOCATION OF STRING----- 
945E- 2150 TAX SAVE STRLEN IN X-REG 
Ou5F- C8 2160 INY IF STRING DATA INSIDE PROGRAM, 
9460- B1 9B ~—- 2170 LDA (LOWTR),Y THEN NO NEED TO FIDDLE 
gue 85 08 2180 STA FORPNT WITH IT FURTHER. 
N64- C5 69 2190 CMP VARTAB 
9466- C 2200 INY 
9467- B1 9B 2210 LDA (LOWTR),Y 
gig 85 09 2220 STA FORPNT+ 4 
46B- E5 6A 2230 SBC VARTAB+1 IN PROGRAM? 
946D- 90 EX 22K0 BCC .1 ..»-YES, SO PASS 
2250 ®---CHECK FOR SHORT STRING—----—- 
Q46F- EO 0 2260 CPx # IF 1 OR 2 SPECIAL TREATMENT 
9471- BO 1 2270 BCS . «LONG STRI 
2280 #---SHORT STRING HANDLER--------- 
9473- 86 06 2290 STX SHORT.FLAG | NON-ZERO TO FLAG 
gure AO FF — 2300 LDA #SFF 
477-91 9B 2310 STA (LOWTR),Y MARKER IN 3RD DESC. BYTE 
9479- 88 2320 DEY POINT AT 2ND DESC. BYTE 
ON7A- CA 2330 DEX CHECK LENGTH 
ON7B- FO 02 2340 BEQ . LEN=1, PUT $FF IN 2ND BYTE 
gurD- Bi 08 2350 LDA (Fonpwr ),y LEN=2, SAVE CHAR IN 2ND BYTE 
AE 1 9B 2360 .2 STA (LOWTR),Y 
9481- 88 2370 DEY POINT AT 1ST BYTE OF DESC. 
guge— B1 08 2380 LDA (FORPNT),Y | MOVE FIRST BYTE OF STRING 
4B4- 91 9B 2390 STA (LOWTR Y DESC. 
9486- 10 CB 2400 BPL .1 
2410 ®---LONG STRING HANDLER---------- 
9488- B1 08 2420 .3 LDA (FORPNT),Y | MARK FIRST BYTE OF STRING 
948A- 09 80 2430 ORA #$80 MAKE NEG ASCII 
948C- 91 08 2Nho iy STA (FORPNT),Y 
94BE- 2450 DEY BACK UP TOWARD BEG. OF DATA 
948F- 30 C2 2460 BMI .1 ..eFINISHED MARKING THIS 
9491 BI 08 2 0 LDA (FORPNT),Y | SAVE STRING CHAR IN DESC. 
th 19B 2490 STA (LOWTR),Y IN LAST 2 BYTES 
gi96- 8 2500 EY F DESCR 
467- B9 9B 00 2510 LDA LOWTR,Y SAVE ADDR INSIDE STRING 
Qu9A~ BO FO = 2520 4 ALWAYS SET 
2530 #---FINISHED MARKING STRINGS----- 
949C= 60 2540 .5 
2560 @ogaecece sea tececeecuceseceuecee 
2560 # MOVE THE STRINGS AS HIGH AS POSSIBLE 
2580 RAISE.ALL. ACTIVE. STRINGS 
4gp- 9 4 95 2590 JSR SET.STRING. POOL.STROLL 
4AO- C ~~ 3660 STX LOWTR+1 STARTS AT TOP 
WA2- 85 9B —- 26 10 STA LOWTR OF STRNG POOL 
Q4AK- 20 3D 95 2620 1 JSR FIND. NEXT. NEG.BYTE. IN. POOL 
260 $ ¢ ® CARRY CLEAR ON RETURN WHEN THRU 
guar 90 48 2660 BCC .4 .«-NO MORE STRINGS IN POOL 
O4A9- AO 00 ~=—-2670 LDY #0 
Q4AB~ 29 7F 2680 #$TE 
O4NAD- 91 71 2690 STA (FRESPC),Y 


2710 * RESTORE STRING POOL TO POS ASC 
2720 a2 THEN RESET POINTERS 


2730 Semen wn nn nen mw mmm neem e n= 
HAF- 38 2740 SEC 
4BO- A5 6. 2750 LDA FRESPC RECOVER ADDR. 
4B2- E9 02 2760 SBC #2 OF get ge 
4BY- 85 71 2770 STA FRESPC FROM THE STR 
31 BQ BO 02 2730 BCS .2 ~»«NO BORROW 
4B8- C6 72 Shea DEC FRESPC+1 
Q4BA- Bi 71 2800 .2 LDA (FRESPC),Y 
94BC- 85 08 2810 STA FORPNT AND PUT IT 
4BE- C8 2520 INY IN FORPNT 
4BF- B1 71 28 30 LDA (FRESPC),Y 
94C1- 85 09 2840 STA FORPNT+1 
94C3- C8 2850 INY Y=2 
94C4- B1 08 28 60 LDA (FORPNT),Y 
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2880 # RESTORE STRING BY RETURNING 


THE FIRST TWO BYTES WHICH WERE 
2900 # STORED IN THE DESCRIPTOR. 
2920 # THEN POINT DESCRIPTOR TO THE 
29 0 # NEW, CORRECT STRING POSITION. 
94C6- 88 2950 DEY 
gic - 91 1 2960 STA (ERESPC) »¥ 
4C9- B1 08 2970 LDA (FORPNT),Y 
4CB- 88 2980 DEY Y=0 
4CC~ 91 1 2990 STA FRESPC} ,¥ 
94CE~ B1 08 3000 LDA (FORPNT),Y 
94D0- 85 07 3010 STA STRING. LENGTH 
94D2- 38 020 SEC 
94D3- AS 9B 30 9 . LDA LOWTR 
3050 # POINT LOWTR & STRING DESCRIPTOR 
0 0 * TO BOTTOM OF NEW STRING POOL. 
3080 * LOWTR HOLDS THE MOVING BOTTOM 
3090 * OF THE STRING POOL. 
94D5- E5 07 ~=—- 3110 SBC STRING. LENGTH 
94D7- 85 9B =: 3120 STA LOWTR 
94D9- CB 130 INY 
94DA- 91 08 1ho STA (FORPNT),Y 
54pc- AS 9C 150 LDA LOWTR+1 
94DE- £9 00 160 SBC #0 
94FO- 85 9C 170 STA LOWTR+1 
Q4E2- 180 INY 
94E3- 91 08 190 . STA (FORPNT),Y 
210 ® NOW MOVE THE STRING TO ITS 
220 * NEW ADDRESS. 
QUE5- AN 07 =. 320 LDY STRING. LENGTH 
QNE7- 88 3250 DEY 
QNE8- B1 71 260 .3 LDA (FRESPC) Y 
O4FA- 91 9B 270 STA (LOWTR),* 
94EC- 88 3280 DEY 
9NED- 10 F9 = 3290 BPL .3 
3310 #---FINISHED MOVING STRINGS------ 
Q4F1- 60 3320 4 RTS 
33 0 ® RESTORE NORMAL CONFIGURATION OF PNTR AND DATA 
50 e FOR STRINGS OF 1 OR 2 CHARACTERS 
70 é SCAN THRU VARIABLE SPACE AGAIN: 
0 & DESCRIPTORS OF STRINGS MARKED WITH $FF 
90 : CONTAIN THE CHAR(S) TO RESTORE TO POOL. 
3440 & FRESPC POINTS AT BOTTOM OF POOL 
320 * LOWTR POINTS AT DESCRIPTORS 
suk FIX. SHORT. STRINGS 
94F2- 20 65 95 3450 JSR INITIATE. SEARCH 
ONF5- 20 72 95 3460 .1 JSR FIND. NEXT. STRING. VARIABLE 
94FB- BO 39 3470 BCS .5 :. «FINISHED! 
O4FA- AO O 34.80 LDY #2 POINT AT 3RD BYTE, 2ND OF ADDR 
O4FC- 8407 3490 STY STRING. LENGTH 
ONFE- B1 9B 500 LDA (LOWTR),Y IF 3RD BYTE =$FF, SHORTY. 
9500- C9 FF 510 CMP #$FF A SHORTY 
9502- DO F1 520 BNE . ...NO, KEEP SCANNING VARIABLES 
9504- 88 3530 DEY - YES, POINT AT 2ND BYTE 
9505- B1 9B 39 0 LDA (LOWTR),Y IF 2ND BYTE ALSO $FF, 
507- 48 590 PHA THEN LEN=1 
§508- 10 02 3560 BPL .2 .» NOT $FF, ITS A STR CHAR 
950A- C6 07 3570 DEC STRING. LENGTH 
50c- 88 39 0.2 DEY POINT AT 1ST BYTE OF DESCRIPTOR 
B0D- B1 9B 590 LDA (LOWTR),Y GET 1ST ASC CHAR OF STRING 
950F- 48 3600 PHA SAVE ON STACK 
3610 #---CALC PLACE IN POOL FOR DATA-- 
9510- 38 3620 SEC 
9511- AS 71 630 LDA FRESPC REPOINT FRESPC 
9513- E507 = 3640 SBC STRING. LENGTH 
9515- 85 71 3650 STA FRESPC 
go 17 - BO 02 3960 BCS 3 
9519- C6 72 670 DEC FRESPC+1 
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3680 #---RESTORE LENGTH TO DESC. —----- 
951B- A5 07 3690 .3 LDA STRING. LENGTH 
951D- 91 9B 3700 LOWTR ),Y 
710 #---STORE CHARS INTO POOL-------- 
3720 #--AND ADDR INTO DESCRIPTOR------ 
951F- 68 3730 PLA FIRST CHAR 
ik TBI AE (rmsre).t 
9523- 1 3180 LDA FRESPC LOBYTE OF ADDR 
95 25~- 91 B 770 STA (LOWTR),Y 
9027 - 31 0 PLA 2ND CHAR 
gor a Bie, gt Urnsred.t 
952D- AS 72 3820 LDA FRESPC+1 HIBYTE OF ADDR 
952F- 91 9B 830 STA (LOWTR),Y 
9531- DO C2 38 0 BNE . ALWAYS 
saxee Ko 850 #---ALL, FINISHED WITH SHORTIES--- 
1 er 
3880 & STRING POOL STROLL 
900 SET. STRING. POOL.STROLL 
9534- AG 74 10 LDX MEMSIZE+1 POINT FRESPC 
9536- A5 13 3920 LDA MEMSIZE AT HIMEM 
9538- 85 7 39 30 STA FRESPC TO START 
ge3h- 43 T2 3300 stx FRESPC+1 STROLL. 
AO Mactsee oes ope eee eee eee tececease 
3870 # SEARCH STRING POOL FROM TOP TO BOTTOM 
3850 é FOR A NEGATIVE BYTE. 
000 # RETURN .CS. IF NEG BYTE FOUND, 
4010 : -CC. IF REACHED END OF POOL 
4030 FIND. NEXT. NEG. BYTE. IN. POOL 
953D- A6 72 ~=4040 LDX FRESPC+1 
953F- AN 71 4050 LDY FRESPC 
Sat Gt Wifes, Bie Re 
e242 BO 07 «os BNE .2 1 aie 
9245 C 4100 .1 DEX YES 
549- E 4110 CPX FRETOP+1 STILL IN POOL? 
954B- 90 15 4120 BCC .5 .« NO 
pele 38 T2 1130 A sty FRESPC+1 DO NEXT PAGE 
550- FO 06 4150 BEQ .3 
Gee >. B1 71 4120 LDA (FRESPC),Y 
9554- 10 ro 4170 BPL .2 POS ASCII 
9556- 30 0 4180 BMI .4 NEG SO QUIT 
0558- B1 71 4190 .3 LDA (FRESPC),Y 
godA- 10 EC 4200 BPL .1 NEW PAGE 
B5c- EX 70 4210 .4 CPX FRETOP+1 
955 - DO 02 4220 BNE .5 FRESPC>FRETOP 
9560- C4 6F 4230 CPY FRETOP FOR CARRY FLAG 
g62- Bh 71 42 0 5 STY FRESPC FRESPC POINTS TO NEG ASC 
ha & Oe Se Se oy ee OS Oe Ge oe a Ge Ge > Oe Se Ge ee ee Oe ss ee a a GS os 
4270 ® SET UP SEARCH OF VAR TABLE 
4290 INITIATE. SEARCH 
9565- 5 69 4300 LDA VARTAB START AT BEGINNING OF VARIABLES 
567- 85 1 4310 STA IND 
9569- A6 6A =—-443220 LDX VARTAB+1 
956B- 86 1A 4330 STX INDEX+1 
g26D- 40 Of 43h0 LD a EACH VAR TAKES 7 BYTES 
seria go! 4329 oe 
4 0 e Ee EP EP as Ge Be ee oe oe oe Oe Ee Oe Ee Oe Oo oe Se to Ge Oe GS OD Oe a Oe TE er 
4 bo ® FIND NEXT STRING VARIABLE 
4400 FIND.NEXT. STRING. VARIABLE 
9572= AG 1A ss 4410 1 LDX INDEX+1 | SETUP SEARCH FOR NEXT STRING 
go74- A 19 4420 LDA INDEX 
576- AM 1 4430 LDY OFFSET 
9578- CO 07s CPY #7 STILL IN SIMPLE VARIABLES? 
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QuICKTRACE 


relocatable program traces and displays the actual machine operations, while it is running 
without interfering with those operations. Look at these FEATURES: 


Single-Step mode displays the last instruction, 
next instruction, registers, flags, stack contents, 
and six user-definable memory locations. 


Trace mode gives a running display of the Single- 
Step information and can be made to stop upon 
encountering any of nine user-definable 
conditions. 


Background mode permits tracing with no display 
until it is desired. Debugged routines run at near 
normal speed until one of the stopping cond- 
Itions is met, which causes the program to return 
to Single-Step. 


QUICK TRACE allows changes to the stack, 
registers, stopping conditions, addresses to be 
displayed, and output destinations for all this 
information. All this can be done in Single-Step 
mode while running. 


Two optional display formats can show a sequence 
of operations at once. Usually, the information 
is given in four lines at the bottom of the screen. 


QUICK TRACE is completely transparent to the 
program being traced. It will not interfere with 
the stack, program, or I/O. 


QUICK TRACE is relocatable to any free part of 
memory. Its output can be sent to any slot or to 
the screen. 


QUICK TRACE is completely compatible with 
programs using Applesoft and Integer BASICs, 
graphics, and DOS. (Time dependent DOS 
operations can be bypassed.) It will display the 
graphics on the screen while QUICK TRACE is 
alive. 


QUICK TRACE is a beautiful way to show the 


incredibly complex sequence of operations that 
a computer goes through in executing a program 


QuICKTRACE $50 


Is a trademark of Anthro-Digital, Inc. 
Copyright © 1981 
Written by John Rogers 


See these programs at participating Computerland and other 


fine computer stores. 


Anthro - Digital Software, Inc. 


P.O. Box 1385 Pittsfield, MA 01202 
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957A- DO 18 4450 BNE .4 .» NO, IN ARRAYS 
957C- EH 6C 4460 CPX ARYTAB+1 WE WERE, CHECK FURTHER... 
eeBo- Se Oe hues BCS ey. eNO 
gl 20 E6 95 4500 .2 JSR IS. THIS. A.STRING. VARI ABLE 
9589- 20 D9 95 4520 JSR NXTEL § NOT A STRING 
958C- 90 E 4530 BCC . .» ALWAYS, TRY AGAIN 
go8E- 6 1B 4540 .3 LSR OFFSET SET OFFSET TO 3 NOW 
590- 85 1D 4590 STA ARRAY. END 
9592- 86 1E 4560 STX ARRAY. END+1 
9591- EM 1E 4370 4 CPx ARRAY. END+1 INSIDE AN ARRAY? 
a a De 
959c- Ey be 4610 CPX STREND+1 STILL IN VAR SPC? 
959E- 90 05 4620 BCC ° eee 
Beas 68 Gh OGG BCC Sd YES 
95a4- 60 4650 RTS — CARRY SET WHEN THRU VAR SPC 
4660 #---SET UP A NEW ARRAY----------~- 
a an cn he 
goa be 18 TOO EDA LENDEX) > 
ys ee Sy TRAY EMD ear ARRAY 
SAF- B1 19 4 30 LDA (INDEX) ,Y 
5Bi- 65 1A 4740 ADC INDEX+1 
5B3- 8 1B ON 20 STA ARRAY. END+1 
95B - 20 E6 95 Ng 0 JSR I$. THIS. A. STRING. VARIABLE IS THIS A STR? 
SB 51D 64 fo LDA ARRAY.END 
SBC- 85 19 4190 STA INDEX NO 
O5BE- A6 1B 4800 LDX ARRAY. END+1 
Bec. Sane aoe Bae een ALWAYS 
AB50 #.--FOUND STRING ARRAY----------- 
95CH- AO O4 4BHO .6 LDY el NT AT 
95C6- B1 19 4850 LDA (INDEX) ,Y #DIMENSIONS OF ARRAY 
gece oh og nee ADC #5 ii 
95CB- 65 19 48b0 ADC INDEX POINT INDEX TO 
95cD- 85 19 4890 STA INDEX FIRST ELEMENT 
SCF- 90 02 4900 BCC .7 OF NEW ARRAY 
5Di- £6 1A =: 48910 INC INDEX+1 
95D3- AG 1A 4920 7 LDX INDEX+1 
5D5- 85 gB Agi 8 STA LOWTR | LOWTR->STR DESCRIPTOR 
5D7- C 4950 STX LOWTR+1 
4960 #---NEXT VARI ABLE------------~--- 
95D9- 18 4970 NXTEL CLC 
O5DA- AS 1B 49 0 LDA OFFSET POINT INDEX TO 
95DC- 65 19 4990 ADC INDEX NEXT VAR OR ELEMENT 
95DE- 85 19 5000 STA INDEX 
95E0- 90 03. += 5010 BCC .1 
ok ne 
95E5- 60 50 0 1 RTS STR FOUND,CARRY CLEAR 
50 0 ® SUBROUTINE STRING CHECK 
5080 IS.THIS. A. STRING. VARIABLE 
95E6- A000 5090 LDY #0 
95E8- 18 5100 CLC INCASE NOT STR 
95E9- B1 19 5110 LDA (INDEX) ,Y 
goEB- 30 OD 5120 BMI i) ..NOT STRING 
QpEE- BI 19 ath LDA (INDEX) ,Y 
FO- 10 0 150 BPL .2 .. NOT STRING 
goke- Ag 02 5160 LDA #2 POINT PAST STR NAME 
oF e 83 0% 210 ace STRING 
aa £8 5190 INX INDEX+1 
95F9- 38 5200 .1 SEC CARRY SET IF STR FOUND 
95FA- 60 5210 2 RTS 
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Changing VERIFY to DISPLAY..........eeeeeeeBOb Sander-Cederlof 


In the July 1982 issue of AAL we showed how to make a text file 
display command inside DOS. Bob Bragner added 80-column output 
to it in the July 1983 issue. The Dec 1983 InCider printed an 
article by William G. Wright about a DOS modification that 
provided text file display without removing any previous 
features. 


Wright's patches modify the VERIFY command so that as sectors 
are being verified, if the file is a text file, they are 
displayed on the screen or printer. If there are any $00 bytes 
in a sector, they are merely skipped over, so his patches will 
handle some random access files, aS well as sequential. 
Non-text files are still verified in the normal manner. 


I was prompted by his article to write up another little 
program. This one will hook into the VERIFY processor in the 
file manager when you BRUN the program. Later, 30BG from the 
monitor or CALL 779 from Applesoft will dis-install the patch. 
My patch modifies VERIFY so that as each sector of a file is 
verified it is displayed in hexadecimal on the screen or a 
printer. I do not distinguish between text and non-text files, 
although it would be a simple matter to do so. As with 
Wright's patches, random access files may also be displayed, up 
to the first hole in the track/sector list. 


The creative among you will want to add many bells and whistles 


to my little program. 
entire sector at a time rather than half a sector. 


Perhaps 80-column display, showing an 
Perhaps 


display of the bytes in both hex and ASCII on the same line. 
Perhaps the ability to scan back and forth through a file, 


using the arrow keys. 


All these are possible, and not too 


difficult. Have fun! 
1000 *SAVE S.DISPLAY FILE 
1010 Smmmmnn nnn enn ene em em ewe mmm e en ne 
1020 # PATCH DOS TO CHANGE VERIFY 
Ue . : INTO DISPLAY 
F941- 1050 MON.PRNTAX .EQ $F941 
FO4A}=-} 1060 MON.PRBL2 .EQ $FO4A 
FD8E- 1070 MON.CROUT .EQ 8E 
FDDA=- 1080 MON.PRBYTE .EQ $FDDA 
FDED- tae MON . COUT -EQ $FDED 
1110 -OR $300 
1120 #&-----------------~.~------------ 
: pas 42 18 a Hee PATCH =r: ae HOOK INTO VERIFY COMMAND 
0305- AI fy 1190 LDA /DISPLAY 
0307- 8D 1D AD 1160 STA $AD1D 
O30A- 60 wey ; RTS 
O30B- AQ B6 1300 aan #$B0B6 ‘gene wail VERIFY 
030D- 8D 1C AD 1210 STA epBOR 
Siz $8 0 an fag ek Abb 
0315=- 60 13ko RTS 
1250 #-----~~.-----~--- ee 
0316=- 20 8E FD oe ial MON .CROUT START SEC 
~- : TOR WITH <RET> 
0319= 20 B6 BO 1280 JSR $BOB6 READ NEXT SECTOR 
031C- BO 09 1290 BCS .1 END OF FILE 
O31E- AO 00 1300 LDY #0 DISPLAY FIRST HALF SECTOR 
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0320- 20 28 03 1310 JSR SHO 
0323- 20 28 03 1320 JSR SHOW DISPLAY SECOND HALF 
0326- 18 1330 CLC SIGNAL NOT END OF FILE 
0327- 60 1340 1 RTS 
0328- AD ES BS 1360 SHOW LDA gB5E5 DISPLAY SECTOR POSITION 
032E- 20 41 FO 1380 JSR MON. PRNTAX 
O331- £9 10 1390 LDA #16 16 LINES PER BLOCK 
0336- DO 0 1410 BNE .2 .. ALWAYS 
0338- A2 0 1420 .1 LDX #4 PRINT 4 BLANKS 
033A- 20 4A FO 1430 JSR MON. PREL? SO COLUMNS LOOK NEATER 
0330- 49 08 i who .2 LDA #8 8 BYTES PER LINE 

Fe 
Osh. 98 1420 TYA PRINT BYTE COUNT 
0343- 20 DA FD 1470 JSR MON.PRBYTE 
O3ue- a9 AD > 1480 LDA #"-" PRINT *-" 
0348- 20 ED FD 1490 JSR MON .COUT 
Saybe 86 AD ED Gig > ~~ WBA How.cour ©” 
28: BI 2 1B20 LDA ee bes NEXT BYTE FROM FILE 
Si) 2 BR HSE pyrene 
O320- BO EO > 1800 BNE .3 MORE TO THIS LINE 
035B- 20 8E FD 1570 JSR MON .CROUT NEXT LINE 
035E- CE 65 03 1580 DEC LCNT 
0361- DO D5 1590 BNE . 
0363- 60 1600 | RTS 
0364- 1620 BCNT .BS 1 
0365- 1630 LONT °BS 1 

MONG Ooo oeee eee ceenayseeeeee eee ees 


Complete, Commented Source Code! 


Our software is not only unlocked and fully copyable 


...we often provide the complete source code on disk, at unbelievable prices! 


S-C Macro Assembler. The key to unlocking all! the 
mysteries of machine language. Combined editor/ 


assembler with 29 commands, 20 directives. Macros, 
conditional assembly, global replace, edit, and more. 
Highest rating “The Book of Apple Software” in 1983 
and 1984. $80. 


Powerful cross-assembler modules also available to 
owners of S-C Macro Assembler. You can develop soft- 
ware on your Apple for 6800, 6805, 6809, 68000, 8085, 
8048, 8051, 1802, LSI-11, and Z-80 microprocessors. 
$50 each. 


S-C Xref. A support program which works with the S-C 
Macro Assembler to generate an alphabetized listing of 
all labels in a source file, showing with each label the 
the line number where it is defined along with all line 
numbers containing references to the label. You get the 
complete source code for this amazingly fast program, 
on disk in format for S-C Macro Assembler. $50. 


Full Screen Editor. Integrates with the built-in line- 
oriented editor in the S-C Macro Assembler to provide 
a powerful full-screen editor for your assembly lJan- 
guage source files. Drivers for Videx, STB80, and Apple 
/fe 80-column boards are included, as well as standard 
40-column version. Requires 64K RAM in your Apple. 
Complete source code on disk included. $50. 


S-C Docu-Mentor for Applesoft. Complete documenta- 
tion of Applesoft internals. Using your ROM Applesoft, 
produces ready-to-assemble source code with full 
labels and comments. Educational, entertaining, and 
extremely helpful. Requires S-C Macro Assembler and 
two disk drives. $50. 


S-C Word Processor. The one we use for manuals, 
letters, our monthly newsletter, and whatever. 40- 
columns only, requires lower-case display and shiftkey 
mod. Works with standard DOS text files, but at super 
fast (100 sectors in 7 seconds). No competition to 
WordStar, but you get complete source code! $50. 


Apple Assembly Line. Monthly newsletter published 
since October, 1980. for assembly language pro- 
grammers or those who would like to be. Tutorial arti- 
cles, advanced techniques, handy utility programs, 
and commented listings of code in DOS, ProDOS, and 
the Apple ROMs. Helps you get the most out of your 
Apple! $18/year. 


S-C SOFTWARE CORPORATION 
2331 Gus Thomasson, Suite 125 
Dallas, TX 75228 (214) 324-2050 


Professional Apple Software Since 1978 
Visa, MasterCard, Amencan Express, COD accepted. 
Appia 1s 4 (ademark of Apple Computer inc 
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Changing Tab Stops in the 68000 Cross Assembler... ..cccccccccces 
Bob Sander-Cederlof 


The procedure as described in the S-C Macro Assembler manual 
works for the 6502 version and for all the cross assemblers 
except the 68000 cross assembler. The procedure described in 
Appendix D will not work because the 68000 cross assembler uses 
both banks of memory at S$DOOO-DFFF. In order to be certain the 
correct one is switched on, the command interpreter keeps using 
the selection soft switches. The result is that the bank stays 
write-protected, and no patches ever get installed. 


Of course, there is a simple way around the problem. Here is 
how to change the tab stops in the 68000 Cross Assembler: 


First, boot the cross assembler disk and select option 2, 
loading the language card version at $p000. 


:BLOAD S-C.ASM.MACRO.68000.LC 

sMNTR 

*AA60.AA61 

*AA60- xx yy (probably C6 27) 

*D010.D014 

DO10- OE 16 1B 20 00 

*C083 C083 DO10:7 10 1B 2B (or whatever values you like) 


C083- zz 
C083- zz 
*D010.D014 


DO10- 07 10 1B 2B 00 

*BSAVE S-C.ASM.MACRO.68000.LC,ASD000,LSyyxx 
*3D0G 

: that's itl 


Similar methods apply to the other customizing patches 
mentioned in Appendix D. 


OBJ .APWRT] [F 


Detailed, complete, and thorough disassembly script 
includes full details on customizing Applewriter IIe 
and capturing your own source code for modification. 


(Pe a tree jammed-full and double-sided diskettes 
P 


lus a free “must have“ bonus book for only $29.95. 
A/ SOURCECODE 
Sup % Synergetics 
Vy . Box 1300-AAL 
mA Thatcher, AZ 85552 
a (602) 428-4073 


VISA and MASTERCHARGE accepted. 
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S-C Macro and GPLE.LC on the //e.....ccccccceceeeeeBObD Bragner 
Istanbul, Turkey 


I've long been bothered by the way loading the S-C Macro 
Assembler wipes out GPLE (Neil Konzen's Global Program Line 
Editor) when you go from Applesoft to Assembler. It shouldn't 
happen, because GPLE resides in the alternate bank at $p000, 
not used by Macro. I've also been unhappy that the //e version 
of S-C Macro Assembler doesn't have the automatic line of 
dashes provided by <esc> L after a line number when you are in 
80-column mode. 


Just the other day I discovered by accident that all is not 
lost. If things are done in just the right sequence both of my 
peeves vanish. 


First load up the S-C Macro Assembler into the $D000 area. 
Then enter Applesoft by typing the FP command, and BRUN 
GPLE.LC. Initialize the 80-column card with ctrl1-V and enter 
the assembler by typing the INT command. This leaves GPLE 
connected so that the assembler sees the <esc> L command. Try 
it by typing a line number and <esc> L. 


It also allows the assembler to see <esc> L to turn a catalog 
line into a LOAD command, but due to the way the word LOAD is 
poked onto the screen you get L O A D which clobbers the file 
name. (I never use the automatic load anyway, so this does not 


bother me.) 


RESET will partially disable GPLE.LC, but you can restore it by 
typing the & command from Applesoft. If you want RESET to NOT 
molest GPLE, change the reset vector to $B6B3. You can do this 
from the monitor with “3F2:B3 B6 13", or from S-C Macro with 
"RST SB6B3". 


I don't know why this all works, but I think it has something 
to do with the way the 80-column card initializes itself by 
copying the //e's monitor ROM into the S$F800-FFFF space of RAM. 


By the way, GPLE uses some patch space inside DOS 3.3 which is 
also used by the fast DOS text file I/O patch, so beware of 
mixing them. 


Will Rockwell 65C02's work in an old Apple..........Bob Stout 


Not unless you have the 2 MHz part. For some reason the timing 
1s too tight and slightly different to use a 1MHz 65C02, unless 
you oe Apple //e. The 2 MHz chips WILL work in Apple II 
an us. 


Page 16.....Apple Assembly Line.....March, 1984.....Copyright (C) S-C SOFTWARE 


Redundancy in Tables for Faster Lookups....Bob Sander-Cederlof 


When speed is the main objective, you can sometimes use table 
lookups to great advantage. You trade program size for speed. 


Here is an easy example. Suppose I want to convert the two 
nybbles of a byte to ASCII characters. I can do it all with 
code, like this: 


CONVERT 
PHA Save original byte 
LSR Position first nybble 
LSR 
LSR 
LSR 
JSR MAKE.ASCII 
STA XXX 
PLA Original byte 
AND #SOF Isolate second nybble 
JSR MAKE.ASCII 
STA XXX+1 
RTS 


MAKE.ASCII 
ORA #S$B0 Make BO...BF 
CMP #SBA 
BCC .l It is 0-9 
ADC #6 Make A-F codes 
ad RTS 


That takes 30 bytes, and 75-77 cycles including a JSR CONVERT 
to call it. Actually 75 cycles if both nybbles are 0-9, 77 
cycles if they both are A-F, and 76 cycles if there is one of 
each. If I move the code from MAKE.ASCII in-line, it saves 24 
cycles (two JSRs, two RTSs), and only lengthens the program by 
one byte. 


Or I can do a table lookup by substituting these two lines for 
both JSR MAKE.ASCII lines above: 


TAX 
LDA ASCII.TABLE,X 


and making a little table like this: 

ASCII.TABLE .AS ~/0123456789ABCDEF/ 

In this form, the program takes 49 cycles, and uses a total of 
39 bytes including the table. Perhaps it could be an advantage 


that the # of cycles is always constant, regardless of the 
value being converted. 


You can make it even faster by using two whole pages for table 
space, like this: 


CONVERT 


TAX 
LDA HI.TABLE,X 
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STA XXX 

LDA LO. TABLE ,X 
STA XXX+1 

RTS 


HI. TABLE 
-AS -/0000000000000000/ 
eAS -/1111111111111111/ 


eAS —/FFFFFFFFFFFFFFFF/ 


LO. TABLE 
~AS —/0123456789ABCDEF/ 
-AS —/0123456789ABCDEF/ 


eAS -/0123456789ABCDEF/ 


The program itself is 14 bytes long, but there are 512 bytes of 
tables. The conversion, including JSR and RTS, now takes only 
30 cycles. And since the program is now so short, it would 
probably get placed in line, saving the JSR-RTS, converting in 
only 18 cycles. And if the in-line routine already had the 
nybble in the X-reg, whack off another two cycles. 


The redundancy in the tables gives a huge speed increase. 


I have been tearing into the super fast copy utility that comes 
with Locksmith 5.0, and I discovered some of these redundancy 
tricks in their disk I/O tables. For example, the table for 
converting a six-bit value into a disk-code normally takes 64 
bytes. The table looks like this: 


TABLE .HS 96979A9B9D9ESFA6 


eHS F/7FOFAFBFCFDFEFF 


Code to access the table might look like this: 
LDA BUFFER, X 
AND #S3F Mask to 6 bits 
TAY 
LDA TABLE,Y 


When you are writing to a disk, every single cycle counts. 
Therefore, it is pleasant to discover redundant tables. By 
making four copies of the table, using 256 bytes rather than 
64, we no longer need to strip off the first two bits. The 
code can be shortened to this: 


LDY BUFFER, X 
LDA TABLE, Y 


It only saves 3 cycles, but those three cycles can and do make 
the whole difference in the fast copy program. That is part of 
Locksmith's secret to reading a whole disk into RAM in only 8 
seconds. 
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Speaking of Locksmith......ccccccccccesceeee Warren R. Johnson 


Did you know that Locksmith 5.0 can nearly be copied by plain 
old COPYA? Or with its own fast backup copier? All but the 
last few tracks copy, and they may not be necessary. 


The only problem is, the resulting copy will not boot until you 
make a small patch using some sort of disk ZAP utility. (You 
can use Omega's Inspector/Watson team, Bag of Tricks, Disk 
Fixer, CIA, for example.) Patch Track-OF Sector-OE Byte-6F: 
change it from 6C to OF. [ Editor's note: in my copy, 
Locksmith had C6 in that byte rather than 6C. And I have not 
tried the resulting disk to see if all functions work. ] 


I have modified my Apple a little to make my life easier. I 
have 2732's in the motherboard ROM sockets, with bank switch 
Selection. Applesoft is in one bank, and a modified version of 
Applesoft in the other. My modifications include replacing the 
Old cassette commands (LOAD/SAVE/SHLOAD etc.) for an INWAT 
command. INWAT downloads the Inspector and Watson from some 
expansion chassis ROM boards. 


Lancaster's OBJ.APWRT ][ F...ccccccceceeee eBObD Sander-Cederlof 


You may have noticed a little ad in the last few issues for an 
obscure title, "OBJ.APWRT ][ F". Don Lancaster, author of such 
favorites as Enhancing the Apple, Incredible Secret Money 
Machine, Micro Cookbook, etc., has torn into Applewriter //e. 
After a thorough analysis, he completely documented it, in the 
style of Beneath Apple DOS. The results, or at least part of 
them, will be chapter 12 in volume 2 of Enhancing. 


He sent me a pre-print to look at and make comments about. My 
main comment is WOW! It doesn't matter if you like Applewriter 
Or not. It doesn't even matter if you have never seen 
Applewriter. You still can learn a tremendous amount by 
reading through Don's text and comments. Of course it is 
better if you DO have Applewriter //e, because he tells you how 
to make some great customizing modifications. 


You can get it all on disk for only $29.95. Actually, it is 
not on “disk" ... it is on SIX disk sides, jam-packed full. 
Don even throws in a free book for good measure. 


You can order OBJ.APWRT ][{ F directly from Synergetics, or from 
S-C Software. 
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About Disk Drive Pressure PadS.....-.eeceeeeeBOb Sander-Cederlof 


After you have used your disk drive for six months or so, it 
will probably develop a scary noise or two. I know mine have. 


My oldest drive is serial 1901 (the Shugart mechanics inside 
the box have a number somewhere in the low 4000's). Every once 
and a while it will make the most dangerous sounding noise you 
ever heard, something like dragging rusty chains across the 
road. I have read in various magazines and newsletters that 
these noises are almost always caused by a dirty pressure pad. 


The pressure pad rides on the top surface of the disk, pressing 
the disk surface down against the recording head. It is a 1/8 
inch circle of felt glued to a slightly larger plastic stud. 
The shaft of the stud is split and tapered, so it will fit 
through a hole and lock in place. You can easily remove the 
pad and stud by pressing on the split end. 


But where do you get new ones? Maybe at a computer store, but 
they sure don't keep them on display. I decided to try a 
little home maintenance, and it worked. I gently scraped the 
felt surface with the blade of my pocket knife, and all the old 
caked oxide turned to powder and fell off. Then I rubbed the 
oxide on a piece of paper, to smooth out the felt. After 
putting the drive all back together, it ran quietly. 


It worked so well, I performed the operation on two more 
drives. And surprisingly, one drive which had been giving lots 


of errors was working accurately again. 
A few other disk maintenance tips: 


One particularly noisy drive a few years ago had loose 
screws trying to hold the drive motor down. A few wrist 
twists and all was well. 


If a drive can read, but writes garbage, it is probably 
the 74LS125 on the analog board inside the drive. Replace 
that chip for 25 cents or so, and you have saved $60 in 
repair bills. 


Will ProDOS Work on a Franklin?...c.c.cccccccvccceceee eBOD Stout 


If you try to boot up ProDOS on a Franklin, it probably will 
fail. The ProDOS boot routine checks to see if you are ina 
genuine Apple monitor ROM. However, you can make it work. 


Start the boot procedure; when meaningful action appears to 


have ceased, press the RESET switch. Get into the monitor and 
type 2647:EA EA and 2000G. Voila! 
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Rod's Color Pattern in 6502 Code............-Charles H. Putney 


When I read the January AAL with Bob Urschel's article about 
running Rod's Color Pattern on the QWERTY 68000 board, it 
sounded like a challenge. You may remember I like speed 
challenges, at least inside computers. 


Fifty times faster than Basic didn‘t sound too fast, so I 
checked a simple loop to see if it might be possible to save 
the dignity of the 6502. It did look possible, at least by 
using tricky table-driven code. 


So, I wrote some more code and it looked like 8.0 seconds per 
loop. This clocks out at 55 times faster than Integer BASIC, 
but I didn't have the internal calculation for the color value 
exactly like the original. 


I finally decided to use a table lookup for the color 
calculation. Now the problem was how to create all those data 
statements. I thcught about using some macros, but the 
calculations are too involved. I wrote an Applesoft program to 
generate the lines of code for the assembler, and then EXECed 
them into my source code. I finally got all the bugs out and 
timed it. 


The table-driven version performs a main loop every 6.2 
seconds, compared to 446 seconds per loop for the Integer BASIC 
version. That is nearly 72 times faster. 


Well, my only worry now is that Bob Urschel made an error in 
his timing, and his really runs 200 times faster. If not, we 
have saved face for the venerable 6502. 


Of course, we did use a little more memory. But that is 
frequently a trade-off worth making in important programs. 


For comparison purposes, here is the Integer BASIC program 
again: 


10 GR 

20 FOR W = 3 TO 50 
30 FOR I = 1 TO 19 
40 FOR J = 0 TO 19 
50 K = I+J 


60 COLOR = J*3 / (I+3) + I*W/12 

70 PLOT I,K: PLOT K,I: PLOT 40-I,40-K:PLOT40-K,40-I 
80 PLOT K,40-I: PLOT 40-I,K: PLOT 1I,40-K: PLOT 40-K,I 
90 NEXT J: NEXT I: NEXT 2 

100 GO TO 20 


My program to generate the data tables includes similar logic. 
I broke the tables into two planes, rather than storing one 
data table 48*19*20 = 18,240 bytes long. One plane computes 
J*3/(I+3), and includes 380 bytes. The other computes I*W/12 
and includes 48*19=912 bytes. My table lookup routine uses I 
and J to index into the first plane, and I and W into the 
second. Then the two values are added together. Pretty 
tricky! 
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100 REM BUILD TABLES FOR ROD'S COLOR 

110 D$ = CHR$ (4) 

120 PRINT D$*OPEN TTT": PRINT D$*WRITE TTT" 
GOSUB 2 


140 PRINT D$*CLOSE* 


TO 26: ,GOSUB 500: Next PRE 
RW = 27 7050: GOSUB 500: NEXT : PRINT 
300 FOR I = 1 TO 
if ror "ar" Lerts ( STR$ (I) +" ",2)" .HS ®; 
330 C = INT (J #3 / (I + 3)):C = C - INT (C / 16) ® 16: IF C > 9 THEN 


C = 

300 PRINT nom CHR$ (C + 48); 
O NEXT : PRINT 

NEXT I 


0 
370 RETURN 
500 C = INT (I ®W/ 12):C = C = INT (C / 16) ® 16: IF C > 9 THENC =C 


+ 7 
510 PRINT "0" CHR$ (C + 48); 
RETURN 


1 TO 
ee LEFT$ ( STR$ (I) + 2)" .HS *; 


~ 
N 
=) 
*") 
ODO 
wh oy 
= 

i Se a 


I believe in letting computers work for me, so I had to use 
some macros to simplify typing in all the code for those eight 
plot statements. I wrote a PLOT macro, but then I noticed that 
there was some redundant code that way. By rearranging the 
order of the PLOT statements, I can separate the y-setup from 
the x-setup and plot. That way the base address does not get 
re-calculated as often, saving more time. Here is my program: 


18 SSAVE S. “OR $6000 COLOR 

1030 -TF PUTNEY 

os. ll 

1080 ' FAST ROD'S COLOR PATTERN 

i060 & CHARLES H. PUTNEY 

1090 & 18 QUINNS ROAD 

1100 # SHANKILL 

1110 # CO. DUBLIN 

aa : IRELAND 

110, anna nnn nanan nnnnnnnnnnnnnnn= 

pete : PAGE ZERO ADDRESSES 
OOEE= 1180 INVI EQ $EE VARIABLE 40 - I 
OOEF- 1190 I EQ SEF VARIABLE 40 = K 
OOF9- 1200 POINTR .EQ $F9 LORES PAGE POINTER (TWO BYTES) 
OOFB- 1210 I -EQ 3FB VARIABLE I 
OOFC- 1220 J -EQ $FC VARIABLE J 
OOFD- ioie K -EQ $FD VARIABLE K 
OOFE= 1240 W -EQ $FE VARIABLE W 
000T=- 1270 ¢ COLOR1 .EQ $07 HALF OF COLOR FORMULA 
0008 - Vat COLOR .EQ 08 , 09 
0008- 1280 COLEVN .EQ $08 EVEN ROW COLOR 
0009—- 1290 COLODD .EQ $09 ODD ROW COLOR 
OO0A=- 1310 MSKODD .EQ $0A 
OOOB- 1320 MSKEVN .EQ $0B 

1330 # 
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~----~--~-------------- APPLE SOFTWARE ----------------------- 


NEW!!! FONT DOWNLOADER & EDITOR ($39.00) 

Turn your printer into a custoa typesetter. Downloaded characters reaain active while printer is powered. Can be used 
with every word processor capable of sending ESC and control codes to the printer. Switch back and forth easily between 
standard and custoa fonts. All special printer functions (like expanded, coapressed, eaphasized, underlined, etc.) apply 
to custom fonts. Full HIRES screen editor lets you create your own custoe characters and special graphics syabols. 
Coapatible with many ‘dueb’ & ‘saart’ printer I/F cards. User driver option provided. Specify printer: Apple Dot Matrix 
Printer, C.Itoh B510A (Prowriter), Epson FI-80/100 or OkiData 92/93. 


DISASM 2.2e - AN INTELLIGENT DISASSEMBLER ($30.00) 

Investigate the inner workings of eachine language prograas. DISASM converts 6502 machine code into eeaningful, syabolic 
source. Creates a standard DOS 3.3 text file which is directly coapatible with DOS ToolKit, LISA and S-C (4.0 and MACRO) 
asseablers. Handles data tables, displaced object code & even lets you substitute your own aeaningful labels. (100 
cosaonly used Monitor & Pq Zero pg names included.) An address-based cross reference table provides further insight into 
the inner workings of asachine language programas. DISASH is an invaluable sachine language learning aid to both the 
novice & expert alike. GOURCE codes $40.00 


S-C ASSEMBLER (Ver4.0 only?) SUPPORT UTILITY PACKAGE ($30.00) 
# SC.XREF - Generates a GLOBAL LABEL Cross Reference Table for coaplete docusentation of source listings. Foraatting 
control accosodates all printer widths for best hardcopy outputs. # SC.GSR - Global Search and Replace eliainates 
teadious sanual renasing of labels. Search all or part of source. Optional prospting for user verification. # SC.TAB - 
Tabulates source files into neat, readable fora. SOURCE code: $40.00 


~------~------------- HARDWARE/FIRMWARE --------------------- 


THE °“PERFORMER’ CARD ($39.00) 

Plugs into any Apple slot to convert your ‘dusb’ centronics-type printer I/F card into a ‘saart’ one. Command eenu 
provides easy access to printer fonts. Eliainates need to reseaber coaplicated ESC codes and key thea in to setup 
printer. Added features include perforation skip, auto page nuabering with date & title. Also includes large HIRES 
graphics screen duap in noraal or inverse plus full page TEXT screen duap. Specify printer: Epson Mx-80 with 
Graftrax-80, HX-100, MX-80/100 with GraftraxPlus, NEC B0923A, C.Jtoh 8510 (Prowriter), Okidata B2A/83A with Okigraph & 
OpkiData 92/93. Oki bonus: print EMPHASIZED & DOUBLE STRIKE fonts' GOWRCE codes $30.00 


FIRMWARE FOR APPLE-CAT: The ‘MIRROR’ ROM ($25.00) 

Comaunications ROM plugs directly into Novation‘s Apple-Cat Modea card. Three basic aodes: Dueb Terminal, Reaote Console 
& Programeable Modea. Added features include: selectable pulse or tone dialing, true dialtone detection, audible ring 
detect, ring-back option and built-in printer buffer. Supports eost 80-coluan displays and the t-wire shift key aod. 
Uses a superset of Apple‘s Coma card and Microaodea II commands. A-C hardware differences prevent 100% cospatibility 
with Coan card. GOURCE codes $60.00 


RAM/ROM DEVELOPMENT BOARD ($30.00) 

Plugs into any Apple slot. Holds one user-supplied 2Kx8 aemory chip. Use a 6116 type RAM chip for prograa developaent or 
just extra sesory. Plug in a preprograsaed 2716 EPROM to keep your favorite routines ‘on-line’. A versatile board with 
many uses! Maps into $Cn00-CnFF and $CB00-CFFF sesory space. Circuit diagrae included. 


NEW!!! SINGLE BOARD COMPUTER KIT ($20.00) 

Kit includes etched PC board (with solder eask and plated thru holes) and asseably instructions. User provides 6502 CPU, 
6116 2K RAM, 6821 dual B-bit I/0 and 2732 4K EPROM plus eisc comeon parts. Originally designed as intelligent printer 
interface - easily adapted to many applications needing dedicated controller. (Asseabled and tested: $119.00) 


All asseably language SOURCE code is fully cossented & provided in both S-C Asseabler & standard TEXT formats on an 
Apple DOS 3.3 diskette. Specify your systea configuration with order. Avoid a $3.00 postage and handling charge by 
enclosing full payeent with order (MasterCard & VISA excluded). Ask about our products for the VIC-20 and Comaodore 64! 


RAK - WARE 
41 Ralph Road West Orange NJ 07052 (201) 325-1885 
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NG: @ceee secs ee eae eee secceeeseces 
1350 # 
1360 : ADDRESS TABLE 
OOF0- 13b0 ODIMSK .EQ $F0 MASK FOR ELIMINATING UPPER BLOCK 
O00F- 1390 EVNMSK .E£Q $0F MASK FOR ELIMINATING LOWER BLOCK 
FB4O- 1100 GRAPH .EQ $FB40 ENABLE LO RES GRAPHICS 
1420 # MACRO DEFINITIONS 
1ako .MA PLY PLY ]1 
1450 LDY ]1 Y-COORD 
1460 LDA LORESL,Y 
1470 STA POINTR 
1480 LDA LORESH,Y 
1490 STA POINTR+1 
1500 TYA 
1510 AND #1 GET LSB 
1520 TAK 
oa i rr 
1550 .MA PIX PLX ]1 
1560 LDY ]1 -COORD 
1570 LDA (POINTR),Y GET THE PAGE BYTE 
1580 AND MASK, X 
1590 ORA COLOR,X 
1600 STA (POINTR),Y PUT IT BACK 
iene Doe cee eens eeueuadeeeee 
1630 .MA NEXT NEXT VAR,LIMIT+1 
1640 INC ]1 INCREMENT ]1 VARIABLE 
1650 LDA | TEST IF ]1=]2 YET 
1660 CMP #J2 
1670 BCS 31 YES, LEAVE LOOP 
1680 JMP NEXT.]1 NO, KEEP LOOPING 
1690 :1 
10 ® — 
1720 .MA GET GET FORMULA, INDEX 
1730 LDY t 
1740 LDA J1L-1,Y 
1750 STA POINTR 
1760 LDA }1H-1,Y 
1770 STA POINTR+1 
1780 LDY 12 
1790 LDA (POINTR),Y 
1810) Seeeesevewcase-secs-seesoes—-e=-5 
at 
in e MAIN LOOP 
6000- AD 56 CO 1 25 ROD LDA $C056 ~—« SET _LORES GRAPHICS ON 
6003- AD 53 CO 1870 LDA $C053 MIXED MODE 
6006- 20 40 FB 1880 JSR GRAPH 
6009- A9 FO —« 1890 LDA #ODDMSK 
600B- 85 0A ~—-: 1900 STA MSKODD 
600D- A9 OF == 1910 LDA #EVNMSK 
600F- 85 OB 1920 : STA MSKEVN 
1980 BIG:LOOP 
6011- 20 E2 FB 1950 JSR $FBE2 ## TESTING BEEP ### 
ps Ad 00 1360 LDA #0 FOR W=3 TO 50 (0...47) 
seoudibaisa 1980 #---NEXT W COMES HERE------------ 
6018- A9 01 1990 NEXT.W LDA #1 FOR I=1 TO 19 
601A- 85 FB 2000 STA I 
SER Be Ghia, 
6020- AD 30 CO 20 9 : wert $030 ares! FOR AUDIBLE FEEDBACK 
602 : 45 FB 2050 NEXT. 1 LDA I SET UP K = I+d 
a we ee 
02B- 2090 >GET FORM1,W 
03B- 85 07 2100 STA COLOR1. SAVE IT FOR INNER LOOP 
603D- A9 00 ~=—_ 2110 LDA #0 FOR J=0 TO 19 
603F- 85 FC 2120 STA J 
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As #---NEXT J COMES HERE------------ 


6041- 2140 NEXT.d >GET FORM2,J 
6051- 18 2150 CLC ADD THE FORMULAS 
6052- 65 07 2160 ADC COLOR1 ACC = Ja3/(1+3)+1@W/12 
6054- 29 0 2170 AND #30P MASK OFF 
6056- 85 0 2180 STA COLEVN EVEN COLOR’ 
6058- OA 2190 ASL SHIFT 4 BITS 
6059- OA 2200 ASL 
605A- OA 2210 ASL 
605B- OA 2220 ASL 
605c- 85 09 22 0. STA COLODD ODD COLOR 
05E- 2250 >PLY I 
0b6E- 2260 SPLX K 
6078- 2270 >PLX INVK 
S080 Westen ece cee eee eee eee 
6082- 2290 >PLY INVI 
6092- 2300 >PLX 
609C- 2310 >PLX INVK 
O00 Seacrest eee 
6046- 2330 >PLY K 
60B6~ 2340 >PLX 
60C0- 2350 >PLX INVI 
D960: Wseeeses 225-28 oc eee ene aoe 
OCA- 2370 >PLY INVK 
ODA- 2380 >PL 
60E4~- 2390 >PLX INVI 
ONO 0 Gseeee eee os cee ee eeceee cee 
OFE- 6 FD 2410 INC K 
OFO- C6 EF 2420 DEC INVK 
60F2- 2430 NEXT J, 20 
ou Gtittitcecncmemicmeseeniemeemewad 
60FD- C6 EE 2450 DEC INVI 
60FF- 2460 >NEXT I, 20 
Pha Wists ee eee 
610A- 24 Oo. >NEXT W,48 
6115- AD 00 CO 2500 LDA $CO00 = ANY _ KEY PRESSED? 
6118- 30 03. +2510 BMI ROD4 YES 
611A- AC 11 60 2520 JMP BIG.LOOP NO, KEEP LOOPING 
611D- 8D 10 CO 2530 RODS STA $C010 
6120- 60 25 RTS 
O660 Wecse eee eee ieee ee 
2560 # 
2570 # LORES GRAPHICS PAGE 
g 9 : BASE ADDRESSES (40 COL) 
2600 LORESL .HS 900008000008080 
2610 "HS 0000808000008080 
2620 “HS 282848482628 A8A8 
2630 “HS 2828A8A82828A8A8 
2640 “HS 5050D0D05050D0D0 
2650 LORESH .HS 0404040405050505 
2660 “HS 0606060607070707 
2670 . HS 040404040 5050505 
2680 "HS 0606060607070707 
2690 “HS ObOwONOOSO50505 
2700 # 
2710 Biwescooacweneesceecececenecescce 
2720 # 
21 0 * TABLE FOR I#W/12 
2750 FORMIL .DA #WI1,#W12, #WI3 PUIN  #WI5, FT6, WIT 
2760 -DA #WI8 #I9 #0110, #w1i1 — 
2770 “DA mvT15 BWI 6 our l7 fw} nzI9 
2780 FORM1H .DA WIN, M2 /ath, /w15,/ 
2790 [DA /W18,/ Tia! yea er giie maria Turia 
2800 “DA /W115, M19, 7 yariy wren /w1i9 
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2820 WI1 .HS 000000000000000000010101010101010101010101 
2 Re «HS 0202020202020202020 03030303030 0 530303 Sclghan 
O WI2 .HS BIO GRCEORGEOSOLOGE 0202020 neo 030303030 

2850 ~HS 0404040505050505050606 06.06 0606070707070707080808 
2860 WI3 .HS 0001010703020202020 ooo 030404040405050505060606 
2870 ~HS 0607070707080808080 okolG O9O0ADAOAOAOBOBOBOBOCOCOC 
2880 WI4 .HS 0101010202020 re Hate 040505050606 06070707080808 
2890 ~HS 0909090A0ANA0BOBOBOCOCOCODODODOEOEOEOFOFOFO000000 
0101020202030304040505050606070707080809090A0A0A 

2910 ~HS OBOBOCOCOCODODOEOEOFOFOF000001010102020303040404 
2920 WI6 .HS 0102020303 0404050506060707080809090A0A0BOBOCOCOD 
2930 «HS ODOEQEOFOF00000 101020203030404050506060707080809 
2940 WIT .HS 010202030404050506070705G809090A0BOBOCOCODOEOEOF 
2950 eHS 0F0000010202030 BTORObeoe OL Cube cCChGRoE cE ooooeN 
2960 WI8 .HS ate 0404050606070808090A0ADBOCOCODOEOEOF000001 
2970 «HS 0202030404050606070808090A0A0BOCOCODOEOEOF000001 
2980 WI9 .HS 02030304050606070 09090A0BOCOCODOEOFOF000 1020203 
2990 «HS 04050506070808090A0BOBOCODOEOEOF0C0 1010203040405 
000 WI10 .HS 0203040505060708090A0A0BOCODOFOFOF00010203040405 
010 -HS 06070809090A0BOCODOEOE0F000102030304050607080809 
020 WI11 .HS 0698 xeBucupoeora00 10 102030N050907080904 0B0COCOL 


0 
0 


030 ~HS O8090A0BOCODOEOF00010102030405060708090A0BOCOCOD 
O40 W112 .HS peed 60708090A0BOCODOEOF000 102030405060708090A 
Oe ~HS 0 D¢OBOEDF0001020304050607 0809040 OCODOEOF000102 
060 WI13 .HS 03040506070 Bee Cee On Gre ood aeap ca ee at co gnece 


070 ~HS ODOEOF0001020304050708090A0BOCODOEOF000 102040506 
3080 W114 .HS Be OA OR OR OED? GEOR URSUCO URUE OEE a oCuOkeconchoecn 
3090 ~HS 0F00010304050607080AOBOCODOEOF0 1020304050608090A 


3100 WI15 .HS 03050607080A0BOCODOF000 10204050607 090A0BR0COROFOO 
0 -HS UE ed 0608 090A0BODOEOF00020304050708090A0CODOE 
O WI16 .HS 04050608 090A0COD0E000 10204050608 090A0COD0E000102 
0 «HS 04050608 090A0CODOE000 10204050608 090A0CODOEN00 102 
O W117 .HS 04050708090BOCOEOF0 10203050608 090A0COD0OF00020304 
0 ~HS 0607090 A0BODOE000 103040507080A0BOCOEOFO 102040506 
O W118 .HS 04060 OB LORORU COI CUOIORG neo 08090B0C OU aed & 
0 ~HS O80A0BOD0E000103040607090A0COD0F000203050608090B 

O WI19 .HS 010607 090BOCOEOFO 1030 0607090A0COEOF0 10204060709 
5 ~HS OAOCODOF0102040507090A0CODOF0002040507080A0CODOF 
0 


QWUIWIUKIWUIWIUIL) 
PND IND at ceed eed ced eed od od ost od 
AO CO~IAN Fu) A) = 


3220 * TABLE FOR J#3/(I+3) 
32 O FORM2L .DA #JI $312, 8313 #J14,¢ #JI5,#J16,# 
250 DA 41 #319, #1 b, #3141, 43112 $5713. 85114 
3260 “DA # 115, #3116 #3147 at: #sthg | 
3270 FORM2H .DA yaa ee /312,/ ae vsth /315,/I16 
280 “DA /JI8, 1319, A5TFh Tata WAL st3 ari 
3290 . -DA /J115,/3146,/3I17 Ae ATL 73149 
3310 JI1 .HS 000001020303040 506060 0809090A0BOCOCODOE 
3320 JI2 <HS 0000010192030 04050606070 08090 OAOAOB 
30 JI3  :HS 000001010202030304040505000 070 70 08090 
3310 JI4 =HS 0000000101020203030304040505000 06070 10 
50 JI5 .HS 900000010 191020203030 030404040 05060 060 
60 JI6 HS 0000000101010202020 0303 0H040 950505060 
10 JI7 :HS 0000000001010102020203030303040404050505 
3380 JI8 .HS 00000101010102020203 03050304040 0808 
3390 JI9 .HS 00000000010 10101020202020303030304040404 
3 00 JI10 .HS 0000000000010101010202020203030303030404 
410 JI11 HS 00000000000 101010 1010202020203030303030 
3420 JI12 .HS 0000000000010101010102020202020303030303 
3430 J113 HS 0000000000000 1010 101010202020202030 030 
440 JI14§ [HS 00000000000001010101010102020202020 030 
450 JI15 :HS 0000000000000101010101010202020202030 0 
3460 JI16 .HS 0000000000000001010101010102020202020203 
3470 III -HS 0000000000000001010101010101020202020202 
480 J118 .HS 0000000000000001010101010101020202020202 
3190 JI19 .HS 00000000000000000 1010101010 1010202020202 
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Appleseed is a complete computer system. It is designed using the bus 
conventions established by Apple Computer for the Apple ][. Appleseed is 
designed as an alternative to using a full Apple ][ computer system. The 
Appleseed product line includes more than a dozen items including CPU, 
RAM, EPROM, UART, UNIVERSAL Boards as well as a number of 
other compatible items. This ad will highlight the Mother board. 


BX-DE-12 MOTHER BOARD 


The BX-DE-12 Mother board is designed to be fully compatible with all of 
the Apple conventions. Ten card slots are provided. Seven of the slots are 
numbered in conformance with Apple standards. The additional three 
slots, lettered A, B and C, are used for boards which don’t require a 
specific slot number. The CPU, RAM and EPROM boards are often placed 
in the slots A, B and C. 


The main emphasis of the Appleseed system is illustrated by the Mother 
Board. The absolute minimum amount of circuitry is placed on the Mother 
Board; only the four ICs which are required for card slot selection are on 
the mother board. This approach helps in packaging (flexibility & smaller 
size), cost (buy only what you need) and repairability (isolate and fix pro- 
blems through board substitution). 


Appleseed products are made for O.E.M.s and serious industrial/scientific 
users. Send for literature on the full line of Appleseed products; and, watch 
here, each month, for additional items in the Appleseed line. 


Appleseed products are not sold through computer stores. 
Order direct from our plant in California. 
Apple is a registered trademark of Apple Computer, Inc. 


DOUGLAS ELECTRONICS 
718 Marina Blvd., San Leandro, CA 94577 © (415) 483-8770 
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Will ProDOS Really Fly?......sceveeeceeeveeseBOb Sander-Cederlof 


ProDOS appears to have been eclipsed by MacIntosh. The major 
software houses are probably putting their main effort into 
Mac. 


ARTSCI has announced a ProDOS version of their MagiCalc 
spreadsheet program. Owners of the DOS 3.3 version may upgrade 
for $40, new customers pay $149.95. The only differences 
claimed are faster disk I/O and ability to edit the printer 
setup string. Nice, but $40 is a lot. And the spreadsheet 
files would no longer be accessible to DOS-based utilities. 


ARTSCI will also send you their ProDOS catalog sorter program, 
complete with BASIC.SYSTEM, CONVERT, FILER, and the ProDOS 
image for only $24.95. Apple will reputedly be selling ProDOS 
with a user's manual and some tutorial files in addition to the 
files on ARTSCI's disk, but price and date are still unclear. 
(You get them free with a new disk drive.) 


Practical Peripherals has announced a new clock card which is 
ProDOS compatible. Their design is apparently an upgrade of 
Superclock II (by Jeff Mazur, Westside Electronics). ProDOS 
was designed around Thunderclock, so other clocks must either 
emulate one of the Thunderclock modes or patch ProDOS during 
the boot process. Applied Engineering's new Timemaster II 
emulates Thunderclock and several others, so it is fully ProDOS 
compatible. 


According to Don Lancaster, Applewriter //e has been written so 
that changing to ProDOS would be easy. Therefore we might 
expect a ProDOS-based version of this popular word processor to 
be announced soon. Or maybe they won't bother to announce it. 


Meanwhile, I know of at least two people with plans to 
integrate the faster RWTS ProDOS uses into their enhanced DOS 
3.3 packages. Have you seen the latest ads for David-DOS? 
Dave Weston compares the speeds of his fast DOS with DOS 3.3 
and Pro-DOS. Guess what ... Pro-DOS doesn't win. 


Unless you MUST have file compatibility with Apple /// SOS; or 
you MUST have hard hard-disk support for very large files; or 
you MUST have a hierarchical file directory; then stick with 
DOS 3.3, enhanced by Dave, or Bill Basham, or. Art Schumer, or 
others. And if you MUST have at least 32K of program space 
with Applesoft; or you MUST have Integer BASIC support; or you 
MUST have compatibility with hundreds of existing software 
products; then stick with DOS 3.3. 


Apple Assembly Line is published monthly by S-C SOFTWARE CORPORATION, P.O. Box 
280300, Dallas, Texas 75228. Phone (214) 324-2050. Subscription rate is $18 
per year in the USA, sent Bulk Mail; add $3 for First Class postage in USA, 
Canada, and Mexico; add $12 postage for other countries. Back issues are 
available for $1.50 each (other countries add $1 per back issue for postage). 


All material herein is copyrighted by S-C SOFTWARE CORPORATION, all rights 
reserved. (Apple is a registered trademark of Apple Computer, Inc.) 
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